home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / PHILY.CMD < prev    next >
Encoding:
Text File  |  1987-12-27  |  2.8 KB  |  168 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"PHILADELPHIA, PA  [215]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                         ╔══╡PHILADELPHIA  NUMBERS╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - Temple University    ║"
  10. MESS"                         ║  B - Eastern Mininet      ║"
  11. MESS"                         ║  C - D Place BBS          ║"
  12. MESS"                         ║  D - Scooter Scientific   ║"
  13. MESS"                         ║  E - Communications  Net. ║"
  14. MESS"                         ║  F - Philly NoChange      ║"
  15. MESS"                         ║  M - Manual Dial          ║"
  16. MESS"                         ║  Q - Return to MAIN menu  ║"
  17. MESS"                         ║                           ║"
  18. MESS"                         ╠═══════════════════════════╣"
  19. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  20. MESS"                         ║                           ║"
  21. MESS"                         ╚═══════════════════════════╝"
  22. LOCA 17,27
  23. GET S0
  24. TOP:
  25. FIND S0"A"
  26. IF FOUN
  27. ASSI S6"Temple University"
  28. ASSI S8"7876843"
  29. GOSU REDIALER
  30. ELSE
  31. ENDI
  32. FIND S0"B"
  33. IF FOUN
  34. ASSI S6"Eastern Mininet"
  35. ASSI S8"6436096"
  36. GOSU REDIALER
  37. ELSE
  38. ENDI
  39. FIND S0"C"
  40. IF FOUN
  41. ASSI S6"D Place BBS"
  42. ASSI S8"6760810"
  43. GOSU REDIALER
  44. ELSE
  45. ENDI
  46. FIND S0"D"
  47. IF FOUN
  48. ASSI S6"Scooter Scientific"
  49. ASSI S8"9222541"
  50. GOSU REDIALER
  51. ELSE
  52. ENDI
  53. FIND S0"E"
  54. IF FOUN
  55. ASSI S6"Communications Network"
  56. ASSI S8"6495422"
  57. GOSU REDIALER
  58. ELSE
  59. ENDI
  60. FIND S0"6"
  61. IF FOUN
  62. ASSI S6"Philly NoChange"
  63. ASSI S8"7456277"
  64. GOSU REDIALER
  65. ELSE
  66. ENDI
  67. FIND S0"M"
  68. IF FOUN
  69. CLEA
  70. LOCA 5,20
  71. MESS"NUMBER TO DIAL:"
  72. LOCA 5,36
  73. ASSI S6"MANUAL DIAL"
  74. GET S8
  75. GOSU REDIALER
  76. ELSE
  77. ENDI
  78. FIND S0"Q"
  79. IF FOUN
  80. CLEA
  81. TRAN"!@!"
  82. WAIT"@"
  83. TRAN"D!"
  84. WAIT"@"
  85. CLEA
  86. LOCA 1,0
  87. PAUS 1
  88. EXEC"SELCITY.CMD"
  89. ELSE
  90. ENDI
  91. FIND S7"MORE"
  92. IF FOUN
  93. ASSI S7"    "
  94. GOTO TOP
  95. ELSE
  96. ENDI
  97. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  98. MESS"RETURNING TO MAIN MENU"
  99. ALAR
  100. ASSI S0"Q"
  101. GOTO TOP
  102. REDIALER:
  103. CLEA
  104. ISFI S6
  105. IF NOT SUCC
  106. LOCA 5, 35
  107. MESS"DIALING"
  108. MESS" "
  109. MESS S6
  110. MESS S8
  111. TRAN"I!"
  112. PAUS 1
  113. TRAN"ATZ!"
  114. WAIT"OK"
  115. TRAN"^E!"
  116. WAIT"READY"
  117. TRAN"D"
  118. TRAN S8
  119. TRAN"!"
  120. RGET S9
  121. RGET S9 80 40
  122. RGET S9 40 40
  123. RGET S9 40 40
  124. GOTMESS:
  125. FIND S9"BUSY"
  126. IF FOUN
  127. MESS S6
  128. MESS S8
  129. MESS"BUSY; GOING TO NEXT NUMBER"
  130. MESS"******************************************************************"
  131. ASSI S7"MORE"
  132. GOTO RTRN
  133. ENDI
  134. FIND S9"ANSWER TONE"
  135. IF FOUN
  136. SET PARI NONE
  137. SET DATA 8
  138. CLEA
  139. MESS"CONNECTED TO"
  140. MESS S8
  141. MESS S6
  142. MESS S1
  143. ALAR
  144. EXIT
  145. ELSE
  146. FIND S9"RINGING"
  147. IF FOUN
  148. RGET S9
  149. FIND S9"RINGING"
  150. IF FOUN
  151. LOG OPEN S6
  152. MESS"NO ANSWER - STILL RINGING"
  153. MESS S8
  154. MESS S6
  155. MESS S1
  156. LOG CLOSE
  157. TRAN"^C^D^C"
  158. MESS"******************************************************************"
  159. GOTO RTRN
  160. ELSE
  161. GOTO GOTMESS
  162. ENDI
  163. ENDI
  164. ENDI
  165. ENDI
  166. RTRN:
  167. RETURN
  168.